home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 May / CMCD0505.ISO / Software / Demo / DesktopX / objects / ktekdockv1.dxpack / {5FADC03F-96BB-45AC-B9A8-4A0626C19AEF}.DXScript2 < prev    next >
Extensible Markup Language  |  2004-08-24  |  2KB  |  36 lines
  1. <?xml version="1.0"?>
  2. <!--DXScript Data File.  Version 2.0-->
  3. <DXScript>
  4.     <Script><![CDATA[Dim tt
  5.  
  6. Sub Object_OnScriptEnter
  7.     If DesktopX.ScriptObject("wmp").Control.settings.getMode("loop") = False Then
  8.         DesktopX.Object("wmp_txt_loopmode").Text = "Loop: Off"
  9.         tt = "Click to loop the playlist"
  10.     Else
  11.         DesktopX.Object("wmp_txt_loopmode").Text = "Loop: On"
  12.         tt = "Click to stop looping the playlist"
  13.     End If
  14. End Sub
  15.  
  16. Sub Object_OnMouseEnter
  17.     DesktopX.ScriptObject("kdocktooltip").tooltip(tt)
  18. End Sub
  19. Sub Object_OnMouseLeave
  20.     DesktopX.ScriptObject("kdocktooltip").tooltip("hide")
  21. End Sub
  22.  
  23. Sub Object_OnStateChange(state)
  24.     If state = "Command executed" Then
  25.         If DesktopX.ScriptObject("wmp").Control.settings.getMode("loop") = False Then
  26.             x=DesktopX.ScriptObject("wmp").Control.settings.setMode("loop", True)
  27.             DesktopX.Object("wmp_txt_loopmode").Text = "Loop: On"
  28.             tt = "Click to stop looping the playlist"
  29.         Else
  30.             x=DesktopX.ScriptObject("wmp").Control.settings.setMode("loop", False)
  31.             DesktopX.Object("wmp_txt_loopmode").Text = "Loop: Off"
  32.             tt = "Click to loop the playlist"
  33.         End If
  34.     End If
  35. End Sub]]></Script><Globals><Editor><PropPane>0</PropPane><EditorLeft>229</EditorLeft><EditorTop>170</EditorTop><EditorRight>1164</EditorRight><EditorBottom>844</EditorBottom></Editor><Object><LanguageCLSID>{B54F3741-5B07-11CF-A4B0-00AA004A55E8}</LanguageCLSID><ControlCLSID>{00000000-0000-0000-0000-000000000000}</ControlCLSID><ControlObjWidth>64</ControlObjWidth><ControlObjHeight>64</ControlObjHeight><RunState>1</RunState><ManualControlLoad>0</ManualControlLoad><ScriptHostVersion>2</ScriptHostVersion></Object></Globals></DXScript>
  36.